home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Mark Polishook / Herrick.5th.part < prev    next >
Encoding:
Text File  |  1998-10-26  |  3.4 KB  |  104 lines  |  [TEXT/ScoM]
  1. (setq this '(j j i i i h i i h h g h g e c e c -h a c c))
  2. (setq this-2 (gen-variants-tfc 0.3155557723075617 3 2 this))
  3. (setq this-3 (gen-variants-tfc 0.3155557723075617 7 3 this))
  4. (setq this-4 (append (symbol-transpose -7 (gen-process '(symbol-transpose x y) '(0 4 8 12) '(a b c d))) this))
  5. (setq this-5 (symbol-transpose 2 this-4))
  6. (setq this-6 (symbol-transpose 3 this-4))
  7. (setq this-7 (symbol-transpose -10 (gen-process '(symbol-transpose x y) '(0 4 8 12) '(a b c d))))  
  8.  
  9. (setq pre-this (append '(=) (symbol-transpose -7 (gen-process '(symbol-transpose x y) '(0 4 8) '(a b c d))) '(f)))
  10. (setq pre-this-2 (append '(=) (filter-delete '= (symbol-shuffle pre-this 0.05476137397636194))))
  11. (setq pre-this-3 (symbol-scale '(-h k) pre-this-2))
  12. (setq pre-this-4 (append '(=) (filter-delete '= (symbol-shuffle pre-this 0.33406367516727187))))
  13. (setq pre-this-append (append pre-this-2 pre-this-3 pre-this-4)) 
  14. (setq pre-this-5 (append '(=) (filter-delete '= (symbol-shuffle pre-this 0.06785317219328))))
  15. (setq pre-this-6  (symbol-transpose 2 (filter-delete '= (symbol-shuffle pre-this 0.3138978399365442))))
  16. (setq pre-this-7 (symbol-shuffle (symbol-transpose 1 (symbol-scale '(-e l) pre-this-6)) 0.030142582632834092))   
  17. (setq pre-this-append-2 (append pre-this-5 pre-this-6 pre-this-7))
  18.  
  19. (setq that '(a c e c f e g a c e c f e g f))
  20. (setq that-2 (gen-variants-tfc 0.3155557723075617 5 2 that)) 
  21.  
  22. (setq that-3 (symbol-transpose 4 (gen-variants-tfc 0.03869143400515895 0 -2 that)))
  23. (setq that-4 (symbol-transpose 4 (gen-variants-tfc 0.3155557723075617 0 -2 that)))
  24. (setq that-5 (symbol-transpose 4 that))
  25.  
  26. (initdef)
  27. (defsym a '(a c e c f e g a c e c f e g f))
  28. (defsym b '(e g i g j i k e g i g j i k j))
  29. (setq that-6 (gen-trans a 3)) 
  30. (setq that-7 (symbol-transpose 4 that-6))
  31. (setq that-8 (gen-trans a 4))  (length that-8) 
  32. (setq that-9 (symbol-transpose 4 that-6))
  33.  
  34.  
  35. (setq this-l '(1/4 3/8 1/8 1/4 1/4 1/8 1/8 1/8 1/8 1/8 1/8 
  36.                1/8 1/8 1/8 1/4 1/4 3/8 1/8 1/4 1/4 1/8))
  37. (setq this-l-2 (append (gen-repeat 16 '(1/16)) this-l))
  38. (setq pre-this-l (append '(5/4) (gen-repeat 12 '(1/16)) '(5/4)))
  39. (setq pre-this-l-2 (append '(5/4) (gen-repeat 12 '(1/16))))
  40. (setq pre-this-l-repeat (gen-repeat 3 pre-this-l-2))
  41. (setq pre-this-l-append (append pre-this-l-2 (gen-repeat 24 '(1/16)) '(5/4)))  
  42.  
  43.    
  44. (def-symbol
  45.   vln (list '(=) that-2 '(=) that that-6 '(=) that-8 (reverse that-8))
  46.   cello (list '(=) that-3 that-5 that-7 '(=) that-9 (reverse that-9))  
  47.   rh (list this this-2 this this pre-this '(=) this-4 this-5 pre-this-append pre-this-append-2 this-4 this-5 this-6 
  48.            this-7 this-6)
  49. )
  50.  
  51. (def-length
  52.   vln '(1/8)
  53.   cello '(1/8)
  54.   rh (list this-l this-l this-l this-l pre-this-l this-l this-l-2 this-l-2 pre-this-l-repeat pre-this-l-append 
  55.            this-l-2 this-l-2 this-l-2 '(1/16) this-l-2) 
  56. )
  57.  
  58. (def-zone
  59.   vln '(-16/1 75/8 -49/8 60/8 212/8 -13/4 226/8 226/8)   
  60.   cello '(-24/1 60/8 60/8 212/8 -13/4 226/8 226/8) 
  61.   rh '(4/1 15/1 4/1 8/1 6/1 -1/1 10/1 10/1 6/1 19/4 10/1 10/1 5/1 4/1 10/1)     
  62. )
  63.  
  64. (def-velocity
  65.   vln '(36)
  66.   cello '(36) 
  67.   rh '(60)
  68. )
  69.  
  70. (def-tonality
  71.   vln (activate-tonality (mixolydian a 5))
  72.   cello (activate-tonality (mixolydian a 4)) 
  73.   rh (activate-tonality (mixolydian a 4))
  74. )
  75.  
  76. (def-tempo 112)
  77.  
  78. (compile-instrument-p "ccl;output:" "herrick.5th.part"
  79.   vln
  80.   cello
  81.   rh
  82. )
  83.  
  84. ;  (gen-noise-white 10 1.0 0.5)
  85. ;  (- (make-zone '(-24/1 60/8) :ratio) (make-zone (zone-of rh) :ratio))
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.